home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / skemaro.bas < prev    next >
BASIC Source File  |  1991-10-18  |  16KB  |  332 lines
  1. 1 KEY(1) ON:ON KEY(1) GOSUB 65010
  2. 10 '   -----------------------------------------------------------   
  3. 20 '  ----  ＳＫＥＭＡＲＯ二十歳の春　　For F-BASIC 386 V1.1L20 ---  
  4. 30 '  ----春が来た！ら、はたちになってしまう、けど、ま、いいや。---  
  5. 40 ' -----　　　↑副題（出来上がってから付けた）                ----- 
  6. 50 '------                              　　　　　　　　　　　　---- 
  7. 60 ' -----                           Programed By ＳＫＥＭＡＲＯ---  
  8. 70 '  ------------------------------------------------------------   
  9. 80 LOAD@"PDRUMS.PMB"
  10. 90 LOAD@"SKE_FM.FMB"
  11. 100 GOSUB *めさーじゅ表示:PLAY OFF:BGM 1:FOR I=0 TO 13:PART I,I:NEXT
  12. 110 '曲の構成と名称。（出来上がってから付けたけど）----------------
  13. 120 PLAY OFF:PO=0
  14. 130 T$="T108O5L8U0Q8%C"
  15. 140 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  16. 150 '春が来た！-------------------------------------------
  17. 160 A$="@41L8O4V 3       GRR]A&A4.F]G4>C<]A4.E4F4A]G&G4.FG4>C<]A&A2]"
  18. 170 B$="@41L8O4V 4       ERR]F&F2  ]ER R ]F&F2D4.E&E2E4.F&F2]"
  19. 180 C$="@41L8O4V 4       CRR]C&C2  ]CR R ]C&C2 <B-4.>C&C2C4.C&C2]"
  20. 190 D$="@52L8O5V 4U-35   G4.]A&A4.F]G4>C<]A4.E4F4A]G&G4.FG4>C<]A&A2]"
  21. 200 E$="@52L8O5V 0U 35  RG4.]A&A4.F]G4>C<]A4.E4F4A]G&G4.FG4>C<]  A2&"
  22. 210 F$="@51L8O3V 1U-70   G4.]A&A4.F]G4>C<]A4.E4F4A]G&G4.FG4>C<]A&A2]"
  23. 220 PLAY A$,B$,C$,D$,E$,F$
  24. 230 'ら、はたちになってしまう、・・・げげ！--------------
  25. 240 A$="GRRA&A4.FG4>C<A4.E4F4AG&G4.FG4EF&"
  26. 250 B$="(ERRF&F2) D4.E&E2E4.D&"
  27. 260 C$="(CRRC&C2) <B-4.>C&C2C4.<A&"
  28. 270 D$="  G4.A&A4.FG4>C<A4.E4F4AG&G4.FG4EF&"
  29. 280 E$="A]G4.A&A4.FG4>C<A4.E4F4AG&G4.FG4E"
  30. 290 F$=" GRRA&A4.FG4>C<A4.E4F4AG&G4.FG4EF"
  31. 300 M$="@14L16O4V10 R1R1R1R4<<D16>>A>CD&"
  32. 310 N$="@14L16O2V10 R1R1R1R4 D16 A>CD&"
  33. 320 PLAY A$,B$,C$,D$,E$,F$,,,,,,,M$,N$
  34. 330 '就職活動もだ！---------------------------------------
  35. 340 A$="T150       O4 F2&F8 >L16 V5%LDD%CAA>%RDD<%CR1R1R2%LB-B-B-R>%RCCC%C"
  36. 350 B$="              D1@50V7O5  R2.         A4] A1   B-2B-2 "
  37. 360 C$="              A1@50V1O5  A4]]A4]]A4]]G4] F1   G2G2"
  38. 370 D$="              F1@50V2O5  F4]]F4]]F4]]E4] D1   F2E2"
  39. 380 E$="              F1@50V2O5  D4]]D4]]D4]]C4] <B-1>C2C2"
  40. 390 F$=" @45L16O2V12  (D8>D<DD8>D<D)3D8>D<DC8>C<C<B-8B-8>B-<B-8B-8B->B-<B-B->DFB-C8C8>C<C8C8CECGC>C<C"
  41. 400 G$=" @ 3L 8O4V12%R4  (CRCR)4(CRCR16CCR16CC)"
  42. 410 H$=" @ 2L 8O4V12%L4  R1R2.D4RRDRRRDRRRDRRRDR"
  43. 420 I$=" @ 4L16O4V12%L3  ((B8BB)4)2 (BRRRBRBBRBRRBRBB)"
  44. 430 J$=" @ 6L16O3V14%R2  (A4[[[[)4R1R1R2.V14%L2E4"
  45. 440 M$="D1"
  46. 450 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,,,M$,M$
  47. 460 'ああ、どうしよう。----------------------------------
  48. 470 B$="A1&A2.A4B-1(B-B-RR)"
  49. 480 C$="F1&F2.F4G1 (GGRR)"
  50. 490 D$="R1&R2.R4F1 FFRREERR"
  51. 500 E$="C1&C2.C4D1 (CCRR)"
  52. 510 F$="<F8>F<FF8>>F<F(F8>F<F)4 C8>C<C<A8>A<A(B-8>B-<B-)4>(C8>C<C)C8C8R4"
  53. 520 G$="(CRCR CRCR)3 CC@4<<<C4>>>@3CCRR"
  54. 530 H$="(RRDR RRDR)3 DD@10%L5E16<%CA16%R5E>%L4@2DDRR"
  55. 540 I$="(B8BB B8BB B8BB B8BB)3 BRBRGGB8BRBRBBBR"
  56. 550 J$="%R2(A4[[[[)4R1R1V14>%CC8C4.C8C4.<%R2"
  57. 560 K$="@11O5L16V2%CR1R1R1R2 (B-GEC>%R)"
  58. 570 L$="@11O5L16V2%CR1R1R1R2 (B-GEC>%L)"
  59. 580 M$="R1R1R1[[F8F8R4E8E8R4"
  60. 590 PLAY ,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$,M$
  61. 600 'ああああああああ。---------------------------------
  62. 610 FOR LO=1 TO 2
  63. 620 FOR LOOP=1 TO 2
  64. 630 A$="@41O5L8  V9 (F4.ERGRF&F1)"
  65. 640 B$="@41O5L8  V9 (D4.CRERD&D1)"
  66. 650 C$="@46O3L8  V11 D1R<A>CD E32F16.EC4D1R<A>CDG32A16.GF4"
  67. 660 D$="   O5L8Q3V10  ((AAAA)4)"
  68. 670 E$="   O5L8Q3V10  ((FFFF)4)"
  69. 680 F$="   O2L8      (DDDD)4<(B-B-B-B-)4>"
  70. 690 G$="     L8  V14 ((CCRR)4)"
  71. 700 H$="     L8      ((RRD4)4)"
  72. 710 I$="     L8  V10 ((V15BV12B[[C]]B)4)"
  73. 720 J$="(A4[[[[)4V14"
  74. 730 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$
  75. 740 '-----------------------------------------------------
  76. 750 A$="F4.ERGRF4 AGFGFE4 F4.ERQ5[[G]G]]G]Q8GGRREERR[["
  77. 760 B$="D4.CRERD4 FEDEDC4 D4.CRQ5[[E]E]]E]Q8DDRRD-D-RR[["
  78. 770 C$="E1R<GA>CE32F16.EC4D1G32A16.FGEG32A32G16F16E16<[[A4]]>"
  79. 780 D$="(GGGG)4AAAAAAAAAARRAARR"
  80. 790 E$="(EEEE)4FFFFFFFFGGRRGG"
  81. 800 F$="(CCCC)2C<GA>CFEC4  (DDDD)<AARRAARR>"
  82. 810 H1$="(RRD4)2RRDDRRD4    (RRD4)DD@10%L5E16<%CA16%R5E>%L4@2DDRR" 
  83. 820 I1$="((V15BV10B[[C]]B)3)V15BBRRBBRR"
  84. 830 J1$="R1R2.%L2E4%R2(A4[[[[)4V14>%CC8C4.C8C4.<%R2"
  85. 840 PLAY A$,B$,C$,D$,E$,F$,G$,H1$,I1$,J1$
  86. 850 NEXT
  87. 860 '-----------------------------------------------------
  88. 870 A$="@47V13U 35  D4.E4F4.F4.D4F4.E4.F4G4.G4.E4G4."
  89. 880 B$="@47V 9U-35RRD4.E4F4.F4.D4F4.E4.F4G4.G4.E4G&"
  90. 890 C$="<B-1>D1C1E1"
  91. 900 D$="(AAAA)4(AAAA)4"
  92. 910 E$="(FFFF)4(EEEE)4"
  93. 920 F$="<(B-B-B->B-<B->B-<B-B-)2>(CCC>C<C>C<CC)2"
  94. 930 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$
  95. 940 '-----------------------------------------------------
  96. 950 A$="     FAA2.EAA2.DAA2.&A1"
  97. 960 B$="G4]]]]]FAA2.EAA2.DAA2.&A2.[[[[["
  98. 970 C$="F2FAA4E2G2D1C2EAA4"
  99. 980 D$="(AAAAAAAA)4"
  100. 990 E$="FFFFFFFFGGGGGGGGFFFFFFFFEEEEEEEE"
  101. 1000 F$="DDDDDDDDCCCCCCCC<B-B-B-B-B-B-B-B->CCCCCCCC"
  102. 1010 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$
  103. 1020 'げげ。いやだよー。-----------------------------------
  104. 1030 A$=" <D1E2.>FGB-AAGGFFEGFFEEDDC"
  105. 1040 B$="R<D1E2.>FGB-AAGGFFEGFFEEDD"
  106. 1050 C$="]]DRADRARC4GGCG4[[FGF4.D&D2E4.G&G2"
  107. 1060 D$="(AAAAAAAA)4"
  108. 1070 E$="FFFFFFFFEEEEEEEEFFFFFFFFGGGGEEEE"
  109. 1080 F$="DDDDDDDDCCCCCCCC<B-B-B-B-B-B-B-B->CCCCCCCC"
  110. 1090 J1$="(A4[[[[)4R2.V14%L2E4%R2((A4[[[[)4V14)"
  111. 1100 K$="L8O4V2AR>D<AR>DR<G4>CC<G>C4FGF1G2.C16E16G16>C16<"
  112. 1110 L$="L8O4V2AR>D<AR>DR<G4>CC<G>C4FGF1G2.<G16>C16E16G16"
  113. 1120 M$="L8DRADRARC4GGCG4RRR1R1"
  114. 1130 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J1$,"%R9"+K$,"%L9"+L$,,M$
  115. 1140 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J1$,K$,L$,,M$
  116. 1150 '-----------------------------------------------------
  117. 1160 A$="]D2DEFD&D2DEFGA1RGRARD4."
  118. 1170 B$="]D2.DEFD&D2DEFGA1RGRARD&"
  119. 1180 C$="[<B-1>C2E2E4.F&F1&F4E4]"
  120. 1190 D$="FFFFFFFFGGGGGGGGAAAAAAAAAAAAAAGG"
  121. 1200 E$="DDDDDDDDEEEEEEEEDDDDDDDDDDDDDDCC"
  122. 1210 F$="<(B-B-)4>CCCCCCCC(DDDD)3DDCC"
  123. 1220 K$="L16O4(>B-FD<B-)4>(>C<GEC)4((>D<AFD)3)2>D<AFD >C<GEC"
  124. 1230 L$="L16O4(>FD<B-F)4>(GEC<G>)4((AFD<A>)3)2AFD<A> GEC<G>"
  125. 1240 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$
  126. 1250 '-----------------------------------------------------
  127. 1260 A$="  D2DEFD&D2DEFD&D1&D2.C4["
  128. 1270 B$="D4D2DEFD&D2DEFD&D1&D2.["
  129. 1280 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$
  130. 1290 IF PO=1 THEN 2120
  131. 1300 NEXT
  132. 1310 'ああ。そとは桜がきれいだなー。----------------------
  133. 1320 A$="@51O4V15U 35  G4RA2FB-AGA4.F4G4>D<GR>DR<G&G1"
  134. 1330 B$="@51O4V13U-35 RG4RA2FB-AGA4.F4G4>D<GR>DR<G1&"
  135. 1340 C$="O3R1R4F4G4A4G1&G2.F4"
  136. 1350 D$="   O5        (AAAA)4(BBBB)4 "
  137. 1360 E$="   O5        (FFFF)4(GGGG)4 "
  138. 1370 F$="(FF>F<F)4(FF>F<F)4"
  139. 1380 G$="     L8  V14 ((CCRR)4)"
  140. 1390 H$="     L8      ((RRD4)4)"
  141. 1400 I$="     L8  V10 ((V1BV12B[[C]]B)4)"
  142. 1410 J1$="@10O2V10((C8C8V4>A4<V10)4)"
  143. 1420 K$="O5L16((FA>C)2FA>(C<AF)2 C<A<)O5((GB>D)GB>(D<BG)D<B<)"
  144. 1430 L$="O5L16((CFA>)2CF(AFC<)2 AF<)O5((DGB>)DG(BGD<)BG<)"
  145. 1440 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J1$,K$,L$
  146. 1450 '洗濯日和だなー。---------------------------------
  147. 1460 A$=" G4>D<G4>D4<G4>DD<G>D4CDF4.E4.D4C4<B4A4G4"
  148. 1470 B$="GG4>D<G4>D4<G4>DD<G>D4CDF4.E4.D4C4<B4A4G&"
  149. 1480 C$="E2.G4B2.>E4C1<A4G4F4E4"
  150. 1490 D$="(BBBB)4>CCCCCCCCQ8C4C4C4C4Q2<"
  151. 1500 E$="(GGGG)4AAAAAAAA Q8G4G4A4G4Q2"
  152. 1510 F$="(EE>E<E)4<(AA>A<A)2>A4G4F4E4"
  153. 1520 J2$="[[[[[((C8C8>A4<)3) >A4A4A4A16A16A8 ]]]]]"
  154. 1530 K$="O5((EGB>D)(ED<BG)<)O5((A>CE)A>C(EC<A)EC<<)"
  155. 1540 L$="O5((B>DEG)(BGED<)<)O5((CEA>)CE(C<AE)C<A)"
  156. 1550 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J2$,K$,L$
  157. 1560 'いい天気。---------------------------------------
  158. 1570 A$=" F4.G4.A4&A1D4.E4.F4&F2.EF"
  159. 1580 B$="GF4.G4.A4&A1D4.E4.F4&F2.E"
  160. 1590 C$="D4.E4.F4F4.G4.A4F4.G4.A4D4.E4.F4"
  161. 1600 D$="   (AAAAAAAA) (FFFFFFFF)"
  162. 1610 E$="   (FFFFFFFF) (DDDDDDDD)"
  163. 1620 F$=" (FF>F<F)4(DD>D<D)4"
  164. 1630 K$="O5((FA>C)2FA>(C<AF)2 C<A<)O5((DFA>C)(DC<AF)<)"
  165. 1640 L$="O5((CFA>)2CF(AFC<)2 AF<)  O5((A>CDF)(AFDC<)<)"
  166. 1650 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J1$,K$,L$
  167. 1660 'あれっ？-----------------------------------------------------
  168. 1670 A$=" B4AA-&A-2G4FE&E2"
  169. 1680 B$="FB4AA-&A-2G4F  E2"
  170. 1690 C$="(E4.E4&E4.)"
  171. 1700 D$="BBB Q5B4B4  Q3 BGGG  Q5G4G4GQ3"
  172. 1710 E$="EEE Q5A-4A-4Q3 A-FFF Q5E4E4EQ3"
  173. 1720 F$="EEE E4E4E CCCC4C4C"
  174. 1730 G1$="CCCCRCRCCCCCRCRC"
  175. 1740 H1$="DDDDRDRDDDDDRDRD"
  176. 1750 I1$="BBBBRBRBBBBBRBRB"
  177. 1760 PLAY A$,B$,C$,D$,E$,F$,G1$,H1$,I1$
  178. 1770 'げ、それどころじゃなかったんだ。（←また思い出した。）-------
  179. 1780 C$="@46O2V11Q8L16[[[[D-]D]E-]E]FG-]GA-]AB-]B>C]D-DE-EL8[[[["
  180. 1790 F$="<AAAAAAA16A16A>"
  181. 1800 G1$="]L16CRCR RCRC CRCR RRCRL8["
  182. 1810 H1$="]]L16RRDR DRRD DRDR DDRRL8[["
  183. 1820 I1$="   BBGBBBGB"
  184. 1830 J1$="@6O3   (A4[[[[)4"
  185. 1840 PLAY ,,C$,,,F1$,G1$,H1$,I1$,J1$
  186. 1850 'げげ、いやだよー。－-------------------------
  187. 1860 A$="@47V13U35   [D1E2.]>FGB-AAGGFFEGFFEEDDC<"
  188. 1870 B$="@47V 9U-35 R[D1E2.]>FGB-AAGGFFEGFFEEDD<"
  189. 1880 C$="  ]]DRADRARC4GGCG4[[FGF4.D&D2E4.G&G2"
  190. 1890 D$="(AAAAAAAA)4"
  191. 1900 E$="FFFFFFFFEEEEEEEEFFFFFFFFGGGGEEEE"
  192. 1910 F$="DDDDDDDDCCCCCCCC<B-B-B-B-B-B-B-B->CCCCCCCC"
  193. 1920 J1$="V14(A4[[[[)4R2.V14%L2E4%R2((A4[[[[)4V14)"
  194. 1930 K$="L8O4AR>D<AR>DR<G4>CC<G>C4FGF1G2.C16E16G16>C16<"
  195. 1940 L$="L8O4AR>D<AR>DR<G4>CC<G>C4FGF1G2.<G16>C16E16G16"
  196. 1950 M$="L8DRADRARC4GGCG4RRR1R1"
  197. 1960 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J1$,K$,L$,,M$
  198. 1970 '-----------------------------------------------------
  199. 1980 F$="DDDDDDDDCCCCCCCC<B-B-B-B-B-B-B-B->C2.<A>C"
  200. 1990 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J1$,K$,L$,,M$
  201. 2000 'げげ、いやだよー　（の、バリエーション）-------------
  202. 2010 C$="  ]]DRADRARC4GGCG4[[R1R1"
  203. 2020 D1$="V13Q6(A[[[[A[[AV13A[[[[A[[A[[A[[AV13)4Q3V10"
  204. 2030 E1$="V13Q6(F[[[[F[[FV13F[[[[F[[F[[F[[FV13E[[[[E[[EV13E[[[[E[[E[[E[[EV13)Q3V10"
  205. 2040 F$="DRADRR<A>DCRGCRR<A>C<B-R>F<B-RRGB->CRGCRR<A>C"
  206. 2050 G1$="(CRRCRRRR)CRRCRCRRCCRCRCRR"
  207. 2060 H1$="(RRERRRC4)(RRD4)4"
  208. 2070 I1$="(BB]]C[[BRB<]]E[[>R)4"
  209. 2080 PLAY ,,C$,D1$,E1$,F$,G1$,H1$,I1$,,,,,M$
  210. 2090 PLAY ,,C$,D1$,E1$,F$,G1$,H1$,I1$,,,,,M$
  211. 2100 PLAY ,,C$,D1$,E1$,F$,G1$,H1$,I$,J1$,K$,L$,,M$
  212. 2110 PLAY ,,C$,D1$,E1$,F$,G1$,H1$,I$,J1$,K$,L$,,M$:PO=1:GOTO 1030
  213. 2120 'けど、ま、いいや。------------------------（↑げげ・・だよー。へ。）
  214. 2130 D$="Q8F1.."
  215. 2140 E$="Q8D1.."
  216. 2150 F$="  <B-1..>"
  217. 2160 G$="CC"
  218. 2170 H$="RRD4.[[[[[[D4.]]]]]]"
  219. 2180 I$="T150(BV2BV14)4 (T-20BV1BV14)4R2"
  220. 2190 J$="(A4[[[[)4V14"
  221. 2200 PLAY ,,,D$,E$,F$,G$,H$,I$,J$
  222. 2210 '-----------------------------------------------------
  223. 2220 FOR LOOP=1 TO 2
  224. 2230 '春が来たんだし。-------------------------------------
  225. 2240 A$="T108@41L8O4V10  GRRA&A4.FG4>C<A4.E4F4AG&G4.FG4>C<A&A2"
  226. 2250 B$="    @41L8O4V9       ERRF&F2  ER R F&F2D4.E&E2E4.F&F2"
  227. 2260 C$="    @41L8O4V9       CRRC&C2  CR R C&C2 <B-4.>C&C2C4.C&C2"
  228. 2270 D$="    @52L8O5V9U-35   G4.A&A4.FG4>C<A4.E4F4AG&G4.FG4>C<A&A2"
  229. 2280 E$="    @52L8O5V7U 35  RG4.A&A4.FG4>C<A4.E4F4AG&G4.FG4>C<  A2&"
  230. 2290 F$="    @42L8O2V10U-70   G>CEF2C<G>CEF&F2<FB->DC2<GA>CEF&F2"
  231. 2300 G$="    @13L8O6V1 Q5%C CCCCCCCCCCCCCCCC<B-B-B->CCCCCCCCCCCCC"
  232. 2310 H$="    @13L8O5V1 Q5%C GGGAAAAAGGGAAAAAFFFGGGGGGGGAAAAA"
  233. 2320 I$="    @13L8O5V1 Q5%C EEEFFFFFEEEFFFFFDDDEEEEEEEEFFFFF"
  234. 2330 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$
  235. 2340 '-----------------------------------------------------
  236. 2350 A$="O4GRRA&A4.FG4>C<A4.E4F4AG&G4.FG4.A&A2"
  237. 2360 B$="O4(ERRF&F2) D4.E&E2E4.F&F2"
  238. 2370 C$="O4(CRRC&C2) <B-4.>C&C2C4.D&D2"
  239. 2380 D$="  G4.A&A4.FG4>C<A4.E4F4AG&G4.FG4>CD&D2"
  240. 2390 E$="A G4.A&A4.FG4>C<A4.E4F4AG&G4.FG4>CD2"
  241. 2400 F$="<G>CEF2C<G>CEF&F2<FB->DC2<GA>CED&D2"
  242. 2410 G$="CCCCCCCCCCCCCCC<B-B-B->CCCCCCCCDDDDD"
  243. 2420 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$
  244. 2430 NEXT
  245. 2440 'あー。眠くなってきたな。-----------------------------
  246. 2450 A$="GRRA&A2GGRA&A2G1&G1"
  247. 2460 B$="ERRF&F2EERF&F2E1&E1"
  248. 2470 C$="CRRD&D2CCRD&D2C1&C1"
  249. 2480 D$="CRRD&D2CCRD&D2C1&C1"
  250. 2490 E$="RCRRD&D2CCRD&D2C1&C2."
  251. 2500 F$="<CG>CD&D2<CG>CD&D2C1&C1"
  252. 2510 G$="CCCDDDDDCCCDDDDDCCCCCCCCC1"
  253. 2520 H$="GGGAAAAAGGGAAAAAGGGGGGGGG1"
  254. 2530 I$="EEEFFFFFEEEFFFFFEEEEEEEEE1"
  255. 2540 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$
  256. 2550 'ああ。清々しーなー。---------------------------------
  257. 2560 A$="A1&A1"
  258. 2570 B$="F+1&F+1"
  259. 2580 C$="E1&E1"
  260. 2590 D$="D1&D1"
  261. 2600 E$="RD1&D1"
  262. 2610 F$="<DF+A>D&D2&D1"
  263. 2620 G$="D1&D1"
  264. 2630 H$="A1&A1"
  265. 2640 I$="F+1&F+1"
  266. 2650 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$
  267. 2660 GOTO 65000:'もう、眠ってる。---------------------------------------
  268. 5000 *めさーじゅ表示
  269. 5010 '------------------------------------------------------ONSHOKU SETTEI
  270. 5020 RESTORE 5050:DIM SON(23):SAD=VARPTR(SON(0)):FOR I=1 TO 1
  271. 5030 FOR ADD=8 TO 33:READ DT$:POKE SAD+ADD,VAL("&H"+DT$):NEXT ADD
  272. 5040 VOICE 9,SON:NEXT I
  273. 5050 DATA 3E,7F,30,73,0,0,0,0,1F,1F,1F,1F
  274. 5060 DATA 0,0,1C,1C,0,0,12,13,0,0,9,F,3C,C0
  275. 5070 '--------------------------------------------------------SYOKI SETTEI
  276. 5080 SCREEN @2:PALETTE:PASTEL:COLOR 0,[128,128,128]:CLS
  277. 5090 BGM 0:DEFINT A-Z:DEFSTR M,R
  278. 5100 T$="T180@106O2V9U0%CL64":PLAY T$+"@9",T$,T$+"U+3000"
  279. 5110 PALETTE 1,[8,8,8]:LINE (0,0)-(639,479),PSET,%1,BF
  280. 5120 '---------------------------------------------KEISEN:MEISAI:KYOKU MEI
  281. 5130 LINE (50,50)-(400,50),PASTEL,7:Y=100
  282. 5140 FOR I=0 TO 14:LINE (35,Y)-(605,Y),PASTEL,7:Y=Y+25:NEXT
  283. 5150 Y=5:FOR I=1 TO 3:READ M:SYMBOL (405,Y),M,1,1,2:Y=Y+19:NEXT
  284. 5160 READ M:SYMBOL (50,53),M,1,1,,,,8
  285. 5170 SYMBOL (103,455),"<             :         >-♪-<             :         >",1,1,7
  286. 5180 X=48:READ M:A=KLEN(M,0):FOR I=1 TO A:MOJ=KMID$(M,I,1)
  287. 5190 SYMBOL (X,15),MOJ,1,2,7,,,13
  288. 5200 IF MOJ="　" THEN PLAY "R":X=X+16:NEXT ELSE PLAY "C16":X=X+16:NEXT
  289. 5210 '-------------------------------------------------------------MESSAGE
  290. 5220 X=60:I=0:Y=83:R="BB-AA-GG-FEE-DD-C>G-GA-AB-B<":RESTORE *MESSAGE
  291. 5230 READ M
  292. 5240 SUU=KLEN(M,0)
  293. 5250 '
  294. 5260 *MAIN
  295. 5270 I=I+1:MOJ = KMID$(M,I,1)
  296. 5280 IF I=SUU+1 THEN I=0:GOTO 5230
  297. 5290 IF MOJ="@" GOTO *SYORI
  298. 5300 IF X=587 THEN X=60:Y=Y+25:PLAY ,R,R
  299. 5310 SYMBOL (X,Y),MOJ,1,1,C,,,9
  300. 5320 IF MOJ="？" OR MOJ="！" OR MOJ="・" THEN PLAY "<<C2>>":GOTO 5350
  301. 5330 IF MOJ="　" OR MOJ="、" THEN PLAY "<<C8>>":GOTO 5350
  302. 5340 IF MOJ="。" THEN PLAY "<<C4>>" ELSE PLAY "C64"
  303. 5350 X=X+17:GOTO *MAIN
  304. 5360 '
  305. 5370 *SYORI
  306. 5380 I=I+1:MOJ = KMID$(M,I,1)
  307. 5390 IF MOJ="E" GOTO *OWARI
  308. 5400 IF MOJ="R" THEN X=60:Y=Y+25:PLAY ,R,R:GOTO *MAIN
  309. 5410 C=VAL(MOJ$):GOTO *MAIN
  310. 5420 '---------------------------------------------------------MEISAI DATA
  311. 5430 DATA "* SKE.ﾒｻ-ｼﾞｭｼｽﾃﾑ  V2.1","* For 386  V1.1L20 / L21","*"
  312. 5440 DATA "作・編曲／ＳＫＥＭＡＲＯ"
  313. 5450 '--------------------------------------------------------MESSAGE DATA
  314. 5460 DATA "　　　　ＳＫＥＭＡＲＯ二十歳の春":'DAIMEI 21 MOJI
  315. 5470 *MESSAGE
  316. 5480 DATA "@7　あっそーだ。ゲーセンに行ってきたんです。@2松浦さんが言ってた裏技@7ためそーと思って。はぁー、ふうん。（感心の声だが、「ハープーン（富士通）」とかけているので気付くように。）（笑うように。）でも、エンディングの方（わらえってば。）は見れな
  317. 5490 DATA "いなー。等と思っていると、どこからともなく一人の子供がやってきて、横から見つめるんですよ（画面を）。時々プレー中の俺の顔もちらちら見るもんで（白目がちらちら動くから、分かる）、気が散ってすぐにゲームおーばー。　だって、教会でお祈り
  318. 5500 DATA "する姿勢で、テーブルにのしかかってきて、息が聞こえるくらいで見てるんだもんね。@R"
  319. 5510 DATA "　たいがい、いるんだよ。どこのゲーセ（笑うなよ。何ともかけてないよ。）ンにも。嫌だよなー。ったく。@R"
  320. 5520 DATA "　曲の説明は、プログラムで。@R"
  321. 5530 DATA "（言葉遣いが、汚くなってしまいました、深くお詫びいたします。）@E"
  322. 5540 '---------------------------------------------------------OWARI SHORI
  323. 5550 *OWARI
  324. 5560 SYMBOL (128,455),"PLAY START   ANY KEY",1,1,2
  325. 5570 SYMBOL (368,455),"PLAY STOP   PF1",1,1,%1:A$=INPUT$(1)
  326. 5580 SYMBOL (128,455),"PLAY START   ANY KEY",1,1,%1
  327. 5590 SYMBOL (368,455),"PLAY STOP   PF1",1,1,2:PLAY ,R,R
  328. 5600 BGM 1
  329. 5610 RETURN
  330. 65000 BGM 0:PLAY"R64":BGM 1
  331. 65010 CLOSE #1 :KEY(1) OFF:PLAY OFF:RUN"MENU.BAS"
  332.